快速在其他软件中模拟手工录入数据

    有时我们遇到一些非常奇葩的软件，没有数据导入功能，只能手工收入，还不能多个格子一起粘贴，只能一个一个格子输入，比如这款网页版的两全管理软件：

 

    （我总算见识了国外SAP、Oracle之类的巨头的嘴脸，软件都是天价，功能却无比弱智，你提建议，他给你说，他是国际标准，不能改，就得按他的来）

 

      明明自己在EXCEL中已经准备好了数据，却不能导入，也不能批量粘贴，只能一个格子一个格子输入，人世间最痛苦的事情莫过于此。

     

      我们当然不能坐以待毙，可以用VBA模拟手工录入，实现整表数据一次输入的。

 

    注意事项：

        1、先要弄清楚我们要填写的软件的程序标题，比如这款两全软件，是网页版的，那么就是WindowsInternet Explorer等等。

      2、如果是网页版的，请确保这个网页已经打开，并且在任务条中所有网页排在第一个，如果搞不清，就只打开这一个网页。

      3、在这个网页中，当前光标必须在要输入数据的表格区域的第一个单元格。

        4、在执行下面VBA代码之前，请在EXCEL中先选择用于录入的数据区域，  必须确保当前选定区域与待录入行列数完全一致。

 

代码如下：

Sub x()
  Dim H As Integer, L As Integer
  H = Selection.Rows.Count
  L = Selection.Columns.Count
 
  If MsgBox("当前选择区域，共" + CStr(H) + "行，" + CStr(L)+ "列。" + vbCrLf + vbCrLf + "(必须确保当前选定区域与待录入行列数完全一致！！！）" +"确定现在录入选定区域的数据吗？", vbQuestion + vbYesNo, "提示") = vbNo Then ExitSub
  AppActivate "Windows InternetExplorer"    '后面这个字符串非常关键！！！
  Application.Wait 5

  Dim R As Range
  For Each R In Selection
          SendKeys CStr(R.Value)
          SendKeys "{TAB}"
  Next R
  SendKeys "{NUMLOCK}"
End Sub

 

 

 

EXCEL必备工具箱，方便实用的EXCEL工具，与EXCEL融为一体,完美支持32位/64位系统

  下载地址：https://www.ahzll.top/HELP/PAGE/blog_5488e3a901000ayc.html